home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / EXEC.DEMO.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  3.0 KB  |  67 lines
  1. 5  REM  EXEC.DEMO
  2. 10 D$ =  CHR$(4):Q$ =  CHR$(34)
  3. 20  HOME : PRINT "      << EXEC DEMONSTRATION >>": PRINT 
  4. 30  PRINT "THIS PROGRAM CREATES A SEQUENTIAL TEXT"
  5. 40  PRINT "FILE NAMED ";Q$;"SHOWOFF.EXEC";Q$;".  EACH STRING"
  6. 50  PRINT "THAT IS PLACED IN SHOWOFF.EXEC BY THIS"
  7. 60  PRINT "PROGRAM IS A LEGAL APPLE II COMMAND.": PRINT 
  8. 70  PRINT "WHEN YOU TYPE"
  9. 80  PRINT "     EXEC SHOWOFF.EXEC"
  10. 90  PRINT "THE COMMANDS IN THE FILE SHOWOFF.EXEC"
  11. 100  PRINT "TAKE CONTROL OF YOUR COMPUTER.  EACH"
  12. 110  PRINT "COMMAND IS EXECUTED JUST AS IF IT HAD"
  13. 120  PRINT "BEEN TYPED IN FROM THE KEYBOARD.  "
  14. 130  PRINT Q$;"BASIC PROGRAMMING WITH PRODOS";Q$
  15. 140  PRINT "DESCRIBES THE PROGRAM IN MORE DETAIL.": PRINT 
  16. 150  PRINT "         << HAPPY EXECUTING >>": PRINT 
  17. 160  PRINT "PRESS THE SPACE BAR TO MAKE THIS"
  18. 170  PRINT "PROGRAM CREATE THE FILE SHOWOFF.EXEC .": PRINT 
  19. 180  PRINT "PRESS Q TO STOP THIS PROGRAM NOW. ";
  20. 190  GET A$: IF A$ = "Q"  OR A$ = "q"  THEN  END 
  21. 200  IF A$ < >" "  THEN  PRINT B$;: GOTO 190
  22. 210  HOME : PRINT "CREATING SHOWOFF.EXEC...": PRINT 
  23. 220  PRINT D$;"PREFIX /EXAMPLES/PROGRAMS"
  24. 230  PRINT D$;"OPEN SHOWOFF.EXEC": PRINT D$;"WRITE SHOWOFF.EXEC"
  25. 240  ONERR  GOTO 1000
  26. 250  PRINT "PRINT"Q$"YOU CAN ENTER LINES OF A PROGRAM."Q$
  27. 260  PRINT : PRINT "100 TEXT:HOME:VTAB 5"
  28. 270  PRINT "110 PRINT";Q$;"THIS IS A PROGRAM CREATED"Q$
  29. 280  PRINT "120 PRINT";Q$;"ENTIRELY BY AN EXEC PROGRAM."Q$
  30. 290  PRINT "130 END"
  31. 300  PRINT "PRINT"Q$"YOU CAN LIST THE PROGRAM..."Q$
  32. 310  PRINT "LIST"
  33. 320  PRINT "PRINT"Q$"PAUSE TO LOOK AT THE LISTING."Q$
  34. 330  PRINT "FOR X=1 TO 8000:NEXT X"
  35. 340  PRINT "PRINT"Q$"AND THEN SAVE IT TO A FILE!"Q$
  36. 350  PRINT : PRINT "SAVE /EXAMPLES/PROGRAMS/NEW.PROGRAM"
  37. 360  PRINT "HGR"
  38. 370  PRINT "BLOAD /EXAMPLES/DATA/PICTURE"
  39. 380  PRINT "PRINT"Q$"YOU CAN EVEN DISPLAY PICTURES!!"Q$
  40. 390  PRINT "FOR X=1 TO 4000:NEXT X:TEXT"
  41. 400  PRINT "CAT /EXAMPLES/PROGRAMS"
  42. 410  PRINT "PRINT"Q$"YOU CAN DISPLAY A DIRECTORY..."Q$
  43. 420  PRINT "FOR X=1 TO 4000:NEXT X"
  44. 430  PRINT "RUN /EXAMPLES/PROGRAMS/NEW.PROGRAM"
  45. 440  PRINT "PRINT"Q$"AND RUN PROGRAMS."Q$
  46. 450  PRINT "FOR X=1 TO 4000:NEXT X"
  47. 460  PRINT "PRINT"Q$"DONE SHOWING OFF."Q$
  48. 470  PRINT D$;"CLOSE"
  49. 500  HOME 
  50. 510  PRINT "IT'S DONE!!!": PRINT 
  51. 520  PRINT "YOUR APPLE IS READY TO SHOWOFF A LITTLE"
  52. 530  PRINT "BIT.  ALL YOU HAVE TO DO IS TYPE": PRINT 
  53. 540  PRINT "    EXEC /EXAMPLES/PROGRAMS/SHOWOFF.EXEC": PRINT 
  54. 550  PRINT "PRESS THE RETURN KEY, AND ENJOY.": PRINT 
  55. 560  PRINT "OH, BY THE WAY.  IF YOU WANT TO SEE THE"
  56. 570  PRINT "COMMANDS IN THE FILE SHOWOFF.EXEC, USE"
  57. 580  PRINT "GET.TEXT FROM CHAPTER 6.  TYPE": PRINT 
  58. 590  PRINT "    RUN GET.TEXT": PRINT 
  59. 600  PRINT "AND WHEN IT ASKS FOR A FILENAME, JUST"
  60. 610  PRINT "TYPE IN": PRINT 
  61. 620  PRINT "    /EXAMPLES/PROGRAMS/SHOWOFF.EXEC"
  62. 700  NEW 
  63. 1000 E =  PEEK(222): REM  GET ERROR
  64. 1010  IF E = 4  THEN  VTAB 5: PRINT B$;B$;"YOU CANNOT RUN THIS PROGRAM ON A WRITE": PRINT "PROTECTED DISK. MAKE A COPY OF THE DISK": PRINT "AND TRY AGAIN.": GOTO 1100
  65. 1020  IF E = 9  THEN  PRINT "YOUR DISK IS FULL.  DELETE SOME OLD": PRINT "FILES AND TRY AGAIN.": GOTO 1100
  66. 1030  PRINT "ERROR"
  67. 1100  PRINT D$"CLOSE": END